home *** CD-ROM | disk | FTP | other *** search
/ Games Gallery 98 / Games Gallery 98 - Disc 2.iso / Content / CAPTURE / insrun.scp < prev    next >
Encoding:
Text File  |  1998-06-23  |  6.5 KB  |  228 lines
  1. ***
  2. *INSRUN.SCP (insr) Version 0.01 - Installs a file which is normally run directly from a CD-ROM.
  3. *
  4. *Author:    T. K. Tierney
  5. *
  6. *Entry: insrFILEPATH is set to the full path of the executable file.
  7. *Exit:  All files in the subdirectory will be copied to a new location, as specified by the user.
  8. *
  9. *Uses:  HTML window 1.   640 x 480 compatible.
  10. *Calls: FileNameCracker (fnc)
  11. *
  12.  
  13.     debug   all
  14.     version INSRUN,0.138
  15.  
  16.     concat  insrDOS,@$WINDOWS,"\Command.com"
  17.  
  18. *Generate a page which explains what is happening.
  19.  
  20.     concat  insrX,"
  21.             &<p><center>This program can be run directly off the CD-ROM.</center>
  22.             &<p><blockquote>If you do not wish to install it to your hard drive,
  23.             &<br>click 'Cancel' now, otherwise, click OK.<blockquote>"
  24.  
  25.     signpost    OKCancel,Installation Note.,@insrX,400,180
  26.     if @$STATUS eq "CANCEL" goto insrExit
  27.  
  28. *Generate a page which asks where to copy the files.
  29.  
  30. :WherePage
  31.  
  32.     set     fncFP,@insrFilePath
  33.     gosub   FileNameCracker
  34.  
  35.     concat  insrDestination,"c:\",@fncName
  36.  
  37.     concat  insrX,<blockquote><h4>Please specify destination.</h4>
  38.             &<br><form>
  39.             &<input type="text" size="20" value=^",@insrDestination,^" name="insrDestination"><p>
  40.             &<input type="submit" value="OK" name="exit:?WherePageOKClick">
  41.             &<input type="submit" value="Cancel" name="exit:?WherePageCancelClick">
  42.             &</form></blockquote>
  43.  
  44.     openhtml    1,270,140
  45.     dohtml  1,Destination directory.,@insrX,WherePageKill
  46.  
  47. :WherePageKill
  48. :WherePageCancelClick
  49.     gosub   Quitter
  50.     goto    WherePage
  51.  
  52. :WherePageOKClick
  53.     closehtml   1
  54.     convert insrDestination,Trim
  55.     set     fncFP,@insrDestination
  56.     gosub   FileNameCracker
  57.  
  58.     if @insrDestination eq ""
  59.         scream Destination directory not specified:,@insrDestination
  60.         goto WherePage
  61.     endif
  62.  
  63.     if @fncExt ne ""
  64.         scream Bad destination:,@insrDestination
  65.         goto WherePage
  66.     endif
  67.  
  68.     if @fncName eq ""
  69.         concat  insrDestination,@fncDrive,@fncPath
  70.         set insrX,len @insrDestination
  71.         set insrX,@insrX - 1
  72.         substring   insrDestinationNoSlash,@insrDestination,1,@insrX
  73.     else
  74.         concat  insrDestinationNoSlash,@fncDrive,@fncPath,@fncName
  75.         concat  insrDestination,@insrDestinationNoSlash,"\"
  76.     endif
  77.  
  78. *See if the directory specified already exists.
  79.  
  80.     findfile    insrX,@insrDestination
  81.  
  82.     if @insrX eq ""
  83.         set insrFragment," a new "
  84.     else
  85.         set insrFragment," an existing "
  86.     endif
  87.  
  88.     concat  insrHTML,<br><center><b>Please confirm.</b><p>,
  89.             &Are you requesting installation to<br><i>,@insrFragment,directory</i>^, named...
  90.             &<p><center><b>,@insrDestinationNoSlash,</b></center>
  91.  
  92.     signpost    YesNo,Confirmation.,@insrHTML,300,220
  93.     if @$STATUS eq NO goto WherePage
  94.  
  95. *If it does not exist, create it.
  96.  
  97.     if @insrFragment eq " a new "
  98.         concat      insrDOSCmd,"/c MD ",@insrDestinationNoSlash
  99.         execute     @insrDOS,@insrDOSCMD,,noscreen
  100.     endif
  101.  
  102. *Check to see if it now exists. If not, generate a complaint and loop back.
  103.  
  104.     findfile    insrX,@insrDestination
  105.  
  106.     if @insrX eq ""
  107.         scream  "Bad destination: ",@insrDestinationNoSlash
  108.         goto    WherePage
  109.     endif
  110.  
  111. *Crack the source file path.
  112.  
  113.     set     fncFP,@insrFilePath
  114.     gosub   FileNameCracker
  115.     concat  insrSource,@fncDrive,@fncPath,*.*
  116.  
  117. *Copy the files.
  118.  
  119.     concat      insrDOSCmd,"/c XCOPY ",@insrSource," ",@insrDestinationNoSlash," /y /s /e"
  120.     execute     @insrDOS,@insrDOSCMD,,noscreen
  121.  
  122.  
  123. *Verify that the specified file name exists in the new location.
  124. *If it does not exist, report a potential error in the install.
  125.  
  126.     concat  x,<br><center><b>Installation complete.<p></b>
  127.             &You can run this game from your hard disk via
  128.             &<br>the Windows Explorer. Select directory
  129.             &<p><i>,@insrDestinationNoSlash,</i>
  130.             &<p>and run file,
  131.             &<p><i>,@fncName,@fncExt,</i>
  132.  
  133.     signpost    Ok,Installation Status.,@x,400,300
  134.  
  135. *Clean up memory and exit.
  136.  
  137. :insrExit
  138.     release fncDrive,fncPath,fncName,fncExt,fncFP
  139.     release insrDestination,insrDestinationNoSlash,insrDos,insrDOSCmd
  140.     release insrFragment,insrHTML,insrSource,insrX,insrScratchFile
  141.     exit
  142.  
  143. *** Subroutines ***
  144.  
  145. **
  146. *Sub FileNameCracker (V02) - Breaks a file name into its components. Partially implemented
  147. *
  148. *Entry: fncFP is the filepath to be cracked.
  149. *
  150. *Exit:  fncStatus = TRUE if the operation worked. FALSE if it failed.
  151. *       fncDrive = the drive part of the filepath, including the ":", possibly null.
  152. *       fncPath = the path part of the filepath, including the trailing "\".
  153. *       fncPathNoSlash = the path part of the filepath, excluding the trailing "\" unless it is only a slash.
  154. *       fncName = the name part of the filepath, without the extension.
  155. *       fncExt = the extension part of the filepath, including the ".", possibly null.
  156. *
  157.  
  158. :FileNameCracker
  159.  
  160. *Locate a drive letter.
  161.  
  162.     set fncPtr,1
  163.  
  164.     instring    fncX,@fncFP,":",1
  165.     if @fncX eq 0
  166.         set fncDrive,""
  167.     else
  168.         substring   fncDrive,@fncFP,@fncPtr,@fncX
  169.         set fncPTR,@fncX + 1
  170.     endif
  171.  
  172. *locate the subdirectory section.
  173.  
  174.     set fncX,@fncPtr
  175.     set fncZ,FALSE
  176.  
  177. :fnc1
  178.     instring    fncY,@fncFP,"\",@fncX
  179.     if @fncY ne 0
  180.         set     fncX,@fncY + 1
  181.         set     fncZ,TRUE
  182.         goto    fnc1
  183.     else
  184.         if @fncZ eq FALSE
  185.             set fncPath,""
  186.         else
  187.             set fncY,@fncX - @fncPtr
  188.             substring   fncPath,@fncFP,@fncPtr,@fncY
  189.             set fncY,@fncY - 1
  190.             substring   fncPathNoSlash,@fncFP,@fncPtr,@fncY
  191.             if $fncPath eq "\" set  fncPathNoSlash,"\"
  192.             set fncPtr,@fncX
  193.         endif
  194.     endif
  195.  
  196. *Locate filename and extension and extract them.
  197.  
  198.     clear fncExt,fncName
  199.  
  200.     InString    fncX, @fncFP,".",@fncPtr
  201.  
  202.     if @fncX ne 0
  203.         substring   fncExt,@fncFP,@fncX,99
  204.         convert fncExt,Trim
  205.         set fncY, @fncX - @fncPtr
  206.         if @fncY ne 0 substring   fncName,@fncFP,@fncPtr,@fncY
  207.     else
  208.         if @fncFP ne "" substring   fncName,@fncFP,@fncPtr,99
  209.     endif
  210.  
  211. *Clean up.
  212.  
  213. :fncExit
  214.     release fncPtr,fncX,fncY,fncZ
  215.     return
  216.  
  217. **
  218. *Sub Quitter - Checks if the user wants to kill the script.
  219. *
  220.  
  221. :Quitter
  222.     concat      x,<br><center>Do you want really want to exit the program?</center>
  223.     signpost    yesno,Exit Program?,@x,224,144
  224.  
  225.     if @$status eq YES halt
  226.  
  227.     return
  228.